TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/macros/musictex/older-versions/musictex.502/MUSICPER.TEX

Text File | 1994-03-21 | 6KB | 151 lines

%
% This is Musicper from MusicTeX
\message{Version 5.02 -- March 20th, 1994}%
%

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
\edef\catcode@lt{\the\catcode`\<}\catcode`\<=12

%%%% notes with a doublesharp-head

\def\x@u{\musicnfont\char"35\hss}%
 %\check
\def\xu{\advancetrue\xu@z}%
\def\xup{\advancetrue\xup@z}%
\def\xupp{\advancetrue\xupp@z}%
\def\xuppp{\advancetrue\xuppp@z}%
\def\xu@z#1{\getn@i{#1}\def\n@fon{\xu}\def\n@sym{\x@u}\g@qu}%
\def\xup@z#1{\getn@i{#1}\def\n@fon{\xup}\def\n@sym{\x@up}\g@qu}%
\def\xupp@z#1{\getn@i{#1}\def\n@fon{\xupp}\def\n@sym{\x@upp}\g@qu}%
\def\xuppp@z#1{\getn@i{#1}\def\n@fon{\xuppp}\def\n@sym{\x@uppp}\g@qu}%
\def\xl{\advancetrue\xl@z}%
\def\xlp{\advancetrue\xlp@z}%
\def\xlpp{\advancetrue\xlpp@z}%
\def\xlppp{\advancetrue\xlppp@z}%
\def\xl@z#1{\getn@i{#1}\def\n@fon{\xl}\def\n@sym{\x@u}\g@ql}%
\def\xlp@z#1{\getn@i{#1}\def\n@fon{\xlp}\def\n@sym{\x@up}\g@ql}%
\def\xlpp@z#1{\getn@i{#1}\def\n@fon{\xlpp}\def\n@sym{\x@upp}\g@ql}%
\def\xlppp@z#1{\getn@i{#1}\def\n@fon{\xlppp}\def\n@sym{\x@uppp}\g@ql}%
 %\check
 %
\def\x@up{\hbox to \qn@width{\x@u\hss}\P@t}%
\def\x@upp{\hbox to \qn@width{\x@u\hss}\PP@t}%
\def\x@uppp{\hbox to \qn@width{\x@u\hss}\PPP@t}%
%
\def\xh#1{\selectpoutre{#1}\xh@}%
\def\xb#1{\selectpoutre{#1}\xb@}%
\def\xh@#1{\getn@i{#1}\def\n@fon{\xh@}\def\n@sym{\x@u}\g@qh@}% % position
\def\xb@#1{\getn@i{#1}\def\n@fon{\xb@}\def\n@sym{\x@u}\g@qb@} % #1 position
%
% x heads without stems
\def\zx#1{\getn@i{#1}\def\n@fon{\zx}\def\n@sym{\x@u}\g@zq}
\def\zxp#1{\getn@i{#1}\def\n@fon{\zxp}\def\n@sym{\x@up}\g@zq}
\def\zxpp#1{\getn@i{#1}\def\n@fon{\zxpp}\def\n@sym{\x@upp}\g@zq}
\def\zxppp#1{\getn@i{#1}\def\n@fon{\zxppp}\def\n@sym{\x@uppp}\g@zq}
 %
 % croches, doubles croches, triples croches, quadruple croches queue en
 % haut et en bas pour percussion x
 %
\def\xcu{\advancetrue\mxcu1}\def\xccu{\advancetrue\mxcu2}
\def\xcccu{\advancetrue\mxcu3}\def\xccccu{\advancetrue\mxcu4}%
\def\xcl{\advancetrue\mxcl1}\def\xccl{\advancetrue\mxcl2}
\def\xcccl{\advancetrue\mxcl3}\def\xccccl{\advancetrue\mxcl4}%
%
\def\xclp{\advancetrue\mxclp1}\def\xcup{\advancetrue\mxcup1}%
\def\xclpp{\advancetrue\mxclpp1}\def\xcupp{\advancetrue\mxcupp1}%
\def\xclppp{\advancetrue\mxclppp1}\def\xcuppp{\advancetrue\mxcuppp1}%
 %
\def\mxcu#1#2{\getn@i{#2}\def\n@sym{\x@u}%
\edef\n@fon{\noexpand\mxcu #1}\g@cu{#1}}
\def\mxcup#1#2{\getn@i{#2}\def\n@sym{\x@up}%
\edef\n@fon{\noexpand\mxcup #1}\g@cu{#1}}
\def\mxcupp#1#2{\getn@i{#2}\def\n@sym{\x@upp}%
\edef\n@fon{\noexpand\mxcupp #1}\g@cu{#1}}
\def\mxcuppp#1#2{\getn@i{#2}\def\n@sym{\x@uppp}%
\edef\n@fon{\noexpand\mxcupp #1}\g@cu{#1}}
 %
\def\mxcl#1#2{\getn@i{#2}\def\n@sym{\x@u}%
\edef\n@fon{\noexpand\mxcl #1}\g@cl{#1}}
\def\mxclp#1#2{\getn@i{#2}\def\n@sym{\x@up}%
\edef\n@fon{\noexpand\mxclp #1}\g@cl{#1}}
\def\mxclpp#1#2{\getn@i{#2}\def\n@sym{\x@upp}%
\edef\n@fon{\noexpand\mxclpp #1}\g@cl{#1}}
\def\mxclppp#1#2{\getn@i{#2}\def\n@sym{\x@uppp}%
\edef\n@fon{\noexpand\mxclppp #1}\g@cl{#1}}

%%%% notes with a + head, for bongos ...

\def\k@u{\musicnfont\char 39\hss}%
 %\check
\def\ku{\advancetrue\ku@z}%
\def\kup{\advancetrue\kup@z}%
\def\kupp{\advancetrue\kupp@z}%
\def\kuppp{\advancetrue\kuppp@z}%
\def\ku@z#1{\getn@i{#1}\def\n@fon{\ku}\def\n@sym{\k@u}\g@qu}%
\def\kup@z#1{\getn@i{#1}\def\n@fon{\kup}\def\n@sym{\k@up}\g@qu}%
\def\kupp@z#1{\getn@i{#1}\def\n@fon{\kupp}\def\n@sym{\k@upp}\g@qu}%
\def\kuppp@z#1{\getn@i{#1}\def\n@fon{\kuppp}\def\n@sym{\k@uppp}\g@qu}%
\def\kl{\advancetrue\kl@z}%
\def\klp{\advancetrue\klp@z}%
\def\klpp{\advancetrue\klpp@z}%
\def\klppp{\advancetrue\klppp@z}%
\def\kl@z#1{\getn@i{#1}\def\n@fon{\kl}\def\n@sym{\k@u}\g@ql}%
\def\klp@z#1{\getn@i{#1}\def\n@fon{\klp}\def\n@sym{\k@up}\g@ql}%
\def\klpp@z#1{\getn@i{#1}\def\n@fon{\klpp}\def\n@sym{\k@upp}\g@ql}%
\def\klppp@z#1{\getn@i{#1}\def\n@fon{\klppp}\def\n@sym{\k@uppp}\g@ql}%
 %\check
 %
\def\k@up{\hbox to \qn@width{\k@u\hss}\P@t}%
\def\k@upp{\hbox to \qn@width{\k@u\hss}\PP@t}%
\def\k@uppp{\hbox to \qn@width{\k@u\hss}\PPP@t}%
%
\def\kh#1{\selectpoutre{#1}\kh@}%
\def\kb#1{\selectpoutre{#1}\kb@}%
\def\kh@#1{\getn@i{#1}\def\n@fon{\kh@}\def\n@sym{\k@u}\g@qh@}% % position
\def\kb@#1{\getn@i{#1}\def\n@fon{\kb@}\def\n@sym{\k@u}\g@qb@} % #1 position
%
% x heads without stems
\def\zk#1{\getn@i{#1}\def\n@fon{\zk}\def\n@sym{\k@u}\g@zq}
\def\zkp#1{\getn@i{#1}\def\n@fon{\zkp}\def\n@sym{\k@up}\g@zq}
\def\zkpp#1{\getn@i{#1}\def\n@fon{\zkpp}\def\n@sym{\k@upp}\g@zq}
\def\zkppp#1{\getn@i{#1}\def\n@fon{\zkppp}\def\n@sym{\k@uppp}\g@zq}
 %
 % croches, doubles croches, triples croches, quadruple croches queue en
 % haut et en bas pour percussion x
 %
\def\kcu{\advancetrue\mkcu1}\def\kccu{\advancetrue\mkcu2}
\def\kcccu{\advancetrue\mkcu3}\def\kccccu{\advancetrue\mkcu4}%
\def\kcl{\advancetrue\mkcl1}\def\kccl{\advancetrue\mkcl2}
\def\kcccl{\advancetrue\mkcl3}\def\kccccl{\advancetrue\mkcl4}%
%
\def\kclp{\advancetrue\mkclp1}\def\kcup{\advancetrue\mkcup1}%
\def\kclpp{\advancetrue\mkclpp1}\def\kcupp{\advancetrue\mkcupp1}%
\def\kclppp{\advancetrue\mkclppp1}\def\kcuppp{\advancetrue\mkcuppp1}%
 %
\def\mkcu#1#2{\getn@i{#2}\def\n@sym{\k@u}%
\edef\n@fon{\noexpand\mkcu #1}\g@cu{#1}}
\def\mkcup#1#2{\getn@i{#2}\def\n@sym{\k@up}%
\edef\n@fon{\noexpand\mkcup #1}\g@cu{#1}}
\def\mkcupp#1#2{\getn@i{#2}\def\n@sym{\k@upp}%
\edef\n@fon{\noexpand\mkcupp #1}\g@cu{#1}}
\def\mkcuppp#1#2{\getn@i{#2}\def\n@sym{\k@uppp}%
\edef\n@fon{\noexpand\mkcupp #1}\g@cu{#1}}
 %
\def\mkcl#1#2{\getn@i{#2}\def\n@sym{\k@u}%
\edef\n@fon{\noexpand\mkcl #1}\g@cl{#1}}
\def\mkclp#1#2{\getn@i{#2}\def\n@sym{\k@up}%
\edef\n@fon{\noexpand\mkclp #1}\g@cl{#1}}
\def\mkclpp#1#2{\getn@i{#2}\def\n@sym{\k@upp}%
\edef\n@fon{\noexpand\mkclpp #1}\g@cl{#1}}
\def\mkclppp#1#2{\getn@i{#2}\def\n@sym{\k@uppp}%
\edef\n@fon{\noexpand\mkclppp #1}\g@cl{#1}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\catcode`\>=\catcode@gt
\catcode`\<=\catcode@lt
\catcode`\@=\catcodeat